home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Shareware / HyperCard / XCMD Docs / CompileIt! Source Code / KillCard < prev    next >
Encoding:
Text File  |  1995-08-19  |  332 b   |  18 lines  |  [TEXT/ttxt]
  1. on KillCard
  2.   get the rect of this card
  3.   put item 3 of it into he
  4.   put item 4 of it into ve
  5.   put 1 into h
  6.   put 1 into v
  7.   repeat until ((h > vw) and (v > he))
  8.     moveTo 0,h
  9.     penpat black
  10.     lineto he,h
  11.     moveTo v,0
  12.     penpat gray
  13.     lineto v,ve
  14.     add one to h
  15.     add one to v
  16.   end repeat
  17.   penpat black
  18. end KillCard